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Here we are again, and it's nearly the middle of the year. 


i There will need to be a meeting án July. to. judge the 
competition entries. I SUGGEST that be Sunday 5th July. It is open to 
all who intend to attend to phome me and we can make arrangements for a 
different date. x | 


Once again I must "SCREAM" about the lack of contributations. 
This із а club, and I expect to hear from quite a few members in 
between N/Letters. It shouldn't be left to the few to keep it going. If 
you are competent with the VZ., write something for others to learn. If 
you are learning send us your problems. We can and will solve them for 
you, (I hope). 


| | I have published articles on programming in FAST BASIC, 
SIMPLE BASIC, ASSEMBLER and Graphics. Surely you don't all understand 
1( first-up. I don't. жы у 





There are those that always Know any new aspect that is 
brought up. It is a pity they don't write an article for us, so we 
could share their knowledge. Look back over. the past year. You. will 
find there is only half-a- dozen names on the articles. | 


Even the High Scores have stopped coming in. They have got 
too high for starters. So I am reducing them to NIL again. І declare 
Peter Watson winner for this round. He will be barred from the games 
that he has set the high score. However he may still attempt to TOP the 
all time high scores that I have listed. When any of his present scores 

are equalled or surpassed, he is free to enter again. Unfortunately he 
has not a competitor, as McLeans have left the club. 


You а11 saw the Scream Sheet in the last edition. All that ` 
went wrong was the Expansion Memory had packed up. And I thought that 
it was the flavour of the Chewing Gum was wrong. How wrong can you get? 








AMAZING ADVENTURE 


CONTINUED 
BY PETER ROSS 


3070 605085600: 60702900 | 


- 3030 G0SU010:PRINT'YOU GET IN THE CAR AMD IT DRIVES”; 
- 3040 PRIMT'OFF. THE DRIVER SAYS ‘WHERE ARE” -- | 


3050 PRINI'YOU GOING.’ WHAT 00 YOU WANT TO" 
3060 PRINT'DO? «SAY CASTLE> OR «SAY I DON'T"; 
3070 PRINT'KNOU" : INPUTAS 
3090 IFAS="SAY I DON'T KNOW" THEM 3120- 
3100 IFAS="SAY CASTLE" THENS580 
3110 605086600: 60703050 
с М8 009010: PRINT YOU SAY "E DON'T KNOW?" BUT THE’ 
3130 PRINT'DRIVER REACHES INTO HIS POCKET ° 
3140 РЕНТА) PULLS OUT A GUM. THE DRIVER 
5150 PRINT'SAYS ‘TELL W THE TRUTH ы BE 
3150 605095500 LI 
3170 PRINT' «SAY 0 R SAY YES" 
3180 INPUTAS 
3200 IFAS="SAY NO'THENS230 
3210 [FAS="SAY YES'THENS270: 605066600: 60703170 
3230 GOSUBIO:PRINT'YOU SAY ‘NO. NEVER.’ THE DRIVER" 
3240 PRINT'PULLS THE TRIGGER. ° 
5250 PRINT'8MG, .... eee ӨТТІ ns 
3260 6010 470 
3270 GOSUBIO:PRINT*YOU SAY ‘YES. I AM GOING TO А" 
3280 PRINT'CASTLE BEYOND А LARGE DOOR." THE"; 
3290 PRINT'ORIVER SAYS ‘THANK YOU" HE PULLS"; 
3300 PRINT'THE TRIGER.” 
3310 PRINT'BAMO..................... 4. 
3320 PRINT'PRESS RETURN TO CONTINUE"; ИРИ 
3330 GOSUBIO:PRINT"THE JEWELS OF ORANUS WERE FOUND" 
3340 PRINT'BY AN UNKNOWN PERSON. THOUGH ' 
3350 PRINT'AMOTHER ADVENTURER WAS SENT OM" 
3360 PRINT’ THIS MISSIOM BUT WAS NEVER EVER" 
2 5370 РАТИТ" SEEN. AGAIN. °: 6070470 
3380 0050810: PRINT"YOU SAY 'A LARGE CASTLE.' THE ° 


- 3390 PRINT'ORIVER SAYS 'I WILL BE DRIVING" 


3400 PRINT'PAST A CASTLE BUT I DON'T KNOW" 
3410 PRINT IF ITS THE OWE YOUR LOOKING FOR . 
3420 PRINT BECAUSE THERE ARE THREE CASTLES’ 
3430 PRINT IN THIS STATE.’ THE DRIVER STOPS"; 
3440 PRINT'THE CAR AND SAYS ‘IS THIS THE ' 
3450 PRINT'PLACE. ": 605086500 

3460 PRINT'«SAY YES» OR «SAY 0)”; 

340 INPUTAS | 

^ 3490 TFAS="SAY HO" THENS5 20 

3500 IFAS="SAY YES°THEN3570: GOSUBG600; 60703380 . 
3820 GOSUBIO:PRINT*YOU SAY "80 THANKS.’ BUT A FEY 
3530 PRINT'SECONDS A TERRIBLE ACCIDENT 

3540 PRINT*OCCOURS. A T TRUCK SVERVES - 


3560 0070470 


3570 GOSUBIO:PRINT'YOU SAY 'YES' AND GET OUT OF THE’; 


3580 PRINT'CAR, THE CAR ORIVES OFF. YOU VALL"; 
3590 PRINT'OVER TO THE THE OLD CASTLE BUT" 
3600 PRINT'IT HASN'T GOT А LARGE DOOR АЦ" 
3610 PRINT'IT HAS IS A SMALL 0000 DOOR WITH"; 


3620 PRINT*CHAINS AMD LOCKS ALL OVER IT! " 
3630 PRINT'YOU САЙ SEE A BLUESTONE PATH 10° 


_ 3640 PRINT'YOUR LEFT AND THE DOOR TO YOUR" 


3650 PRINT'RIGHT WHAT DO YOU WANT TO DO ‹60"; 
3660 PRINT*LEFT> OR «60 RIGHT>";:INPUTAS - 
3680 IFAS-"60 RIGHT THEN37 10 
3690 IFAS="60 LEFT" THENS800: 60506500: 60703670. - 
3710 GOSUBIO:PRIAT*60 WALL TO YOUR RIGHT AND TRY TO"; 
3720 PRINT'BREAK THE CHAINS, BUT JUST AS ' 
3730 PRINT'YOU BROKE ONE OF THE CHAINS А" 
3740 PRINT'POLICE CAR DRIVES PAST. THEY SEE"; 
3750 PRINT'YOU BREAKING IN AND SENTENCE YOU"; 
3760 PRINT*TO DEATH!!!" | 
3770 SOUNDI, 9:1,9 
3780 PRINT'YOU HAVE BEEN HANGED!!!" 
3790 GOTO 420 
3800 GOSUBIO:PRINT"YOU DECIDE ТО WALK TO YOUR LEFT. *; 
3810 PRINT" YOU ME BY A VERY LARGE STOWE ° 
РИП", YOU. CAN SEE SOME ROPE OM ° 
br m OUND: WHAT DO YOU WANT TO" 
3840 PRINT'DU? «EXAMINE ROPED OR «СЕТ РР"; 
3850 INPUTAS 
3870 IFAS="EXAMINE ROPE'THENSO00 — 
3880 IFAS="GET КОРЕ" THEN3950: 60706600: 609083800 





3900 GOSUBIO:PRINT"YOU EXAMINE THE КОРЕ, IT LOOKS" 


3910 PRINT'LIKE IT IS VERY STRONG AND IT' 

3920 PRINT'HASW'T HAD MUCH WEAR, ° 

3930 PRINT'PRESS RETURN TO CONTINUE"; : INPUTAS 
3940 60703800 — — — 

3950 0050810: PRINT YOU PICK UP THE КОРЕ,“ 

3960 605086500 

3970 PRINT" «THROM КОРЕ» OR «CLIMB VALL» 

3980 INPUTAS 

4000 IFASS'CLIB VALL THEHAD3O 

4010 IFAS="THROW ROPE"THENA090:60SUB6600:60103950 
4030 GOSUBIO:PRINT*YOU CAN'T CLIMB THE WALL BECAUSE"; 
E PRINT'ITS 100 STEEP. " 


50 PRINT 
060 PRINT" PRESS RETURN TO CONTINUE"; 
4070 ИРИМ | 
4080 GOTO 5060 | - 

4090 GOSUBIO:PRINT*YOU THROW THE ROPE (NER THE WALL"; 

M00 605085500 

4110 PRINT" «С КОРЕ» OR «SCALE ROPE» 

4120 INPUTAS 

4140 TFAS="CLIMB ROPE" THENAI70. 

M50 TFAS="SCALE ROPE"THENAI80 = 
4160 60086600: 60704090. — 

ил 6050810: РАТИТ"ҮОШ CLIMB THE ROPE AND JUMP OVER”; :GOTOMIO 


4180 GOSUBIO:PRINT*YOU SCALE THE ROPE AND JUMP OVER"; - 
4190 PRINT" THE WALL, YOU CAN SEE А SION. 


4200 605086500 


A210 PRINT" «READ SIGH) OR «KEEP WALKING? 
4220 INPUTAS 


— AM TFAS=°READ SIGN" THERA?80 


4250 IFAS="KEEP WALKIRG" THEN4350 

4260 605086600 

4270 6051810: PRINT’ YOU CAN SEE A SIGN. ":GOTOR200 
4280 GOSUBIO:PRINT'THE SIGN SAYS:' 

4290 PRINT" KEEP WALKING FORWARD TILL YOU" 

4300 PRINT'GET TO ANOTHER SIGN POST ARO ° 

4310 PRINT’ «CROSS» THE “RIDGE 


. A320 PRINT 


d 
4330 PRINT'PRESS RETURN TO CONTINUE"; : IRPUTAS: 
$340 6050810: 60104200 
4350 GOSUBIO:PRINT"YOU KEEP WALKING FORVARD FOR Ae 
4560 PRINT'LONG TIME. YOU ARE WEAR A RUBISU'; 
4370 PRIWT'BIN. YOU CAN SEE A PIECE OF OLD" 
4380 PRINT'PAPER OW THE GROUND. WHAT DO YOU"; 
4390 PRINT WANT TG 007 «READ PAPER? UR. 
4400 PRINT <KEEP WALKING)”; : ТАРТА 
4420 IFAS-'READ PAPER*THEN4450 
4430 IFAS="KEEP WALKING" THEH4500: 60586600: 60704350 
4450 5050810: PRINT’ THE PIECE OF PAPER SAYS: * 
4460 РАТИТ" ВЕЧАКЕ OF THE ELECTRONIC DOORS!" 
4470 PRINT'AND THE EVIL ROBOTIC ARMS!" 
4480 PRINT 
4490 PRINT'PRESS RETURN TO CONTINUE"; : INPUTAS: 60104350 
4500 GOSUBIO:PRINT*YOU KEEP WALKING FOR ABOUT THREE”; 
4510 PRINI'MIZUTES. YOU HAVE NOW COME TO А" 
4520 PRINT ENORMOUS LAKE. ЖАТ DO YOU WANT" 


4530 PRINT'TO DO? «ИИ LAKE> OR " 


1540 PRINT" «WALK. AROUND) 

4550 INPUTAS 
4560 Y | 

4570 TFAS="SWIM АКЕ THENS600 

4580 [FAS="WALK AROUND" THENAZ00: 605086600: 50704500 

4600 GOSUBIO;PRINT*YOU JUMP IN THE LAKE AND SWIM ° 

4610 PRINT'LIKE HAD BECAUSE THERE ARE МАЙ" 

4620 PRINT'EATING PIRAMAS AFTER YOU! BUTT — 

4630 PRINT'YOU ARE TO SLOW OF A SVINER. " : FORA=1105500: EXT 
4540 FORB=1108 

4659 FORA=1102: POKE3 1063, 50: X-USR (0) NEXT 

4660 FORA=1T07: NEXT 

4670 FORA=1702: POKES 1063, 63: X-USR 0) NEXT 

4680 FORA-ITOZ: NEXT | 

4690 WEXTB: PRINT" CHOMP! ! 1°: 6070420 | 
4700 GOSUBIO:PRIWT"YOU ШК AROUND THE LAKE. В" 
4710 PRIMT YOU DONT SEE. MTN. i E 
4770 605086500 

4730 PRINT" «KEEP иш OR <EXAMINE LCD"; 

4740 INPUTAS — 
4760 IFAS="EXAMINE LAKE'THENABOD — 

4770 IFAS="KEEP WALKING" THEM4830: 60586600: ТІГІ 

4800 5050810: PRINT YOU EXAMINE THE LAKE BUT ALL YOU"; 
4810 PRINT'SEE IS MAW EATING PIRANAS!" 

4820 60104720 

4850 6050810: PRINT YOU WALK PAST A TREE WHAT DO YOU"; 
4840 PRINT'WANT TO 00? «CLIMB ТЕО OR __ 

4850 PRINT" «EXMIINE TREE)”; 

4860 [NPUTAS 


4880 IFAS="CLIMB TREE" THERS910 

4890 IFAS="EXAMINE TREE" THENSOOO: 605086600: 60704830 
4910 6050810: PRINT'YOU CLIMB UP THE TREE. BUT LOTS” 
4920 PRINT'OF BUGS AND INSECTS START ' 

4950 PRINT'CRAVLING AROUND YOU UNTILL YOUR" 

4940 PRINT'WHOLE BOOY IS COVEREO IM THEM " — 

4950 PRINI'YOU CAN'T BREATH!" 

4960 FORA=1 1010: ЖЕЗ 1063, 50: X=USR (0) : EXT 

4970 PRINT 

4980 PRIMT'PRESS RETURN TO CONTINUE": ДІРІЛ 

4990 50140 | 

5000 GOSUB10:PRIWT'YOU EXAMINE THE TREE, YOU CAM " 
8010 PRINT'SEE LOTS OF BUGS AND INSECTS IN ° 

5020 PRINT THE TREE. YOU KEEP GOING FORWARD”; 

5030 PRINT'FOR ABOUT AN HOUR. YOU HAVE COME"; 

5040 PRINT'TO ANOTHER SIGN POST, BUT THE ' 

5050 PRINT'VRITING OW IT IS HOT VERY CLEAR"; 

5060 PRINT (UU САН SEE A BRIDGE TO YOUR ° 

5070 PRINT*RIGHT AND A SMALL DOOR TO YOUR" 

5080 PRINT LEFT. * : 605086500 

5090 PRINI'«CROSS BRIDGE> OR «OPEN 0006» 

8100 INPUTAS: LOCK=RND(100) 

5120 IFASz'OPEN DOOR" THENS 150 

5130 TFAS="CROSS BRIDGE" THENS 210; 60586600: 60705060 
5150 6050810: PRINT'YOU OPEN THE DOOR. BUT A MAD ` 
5160 PRINT" YOHAN COMES OUT WITH A CRICKET’ 

5170 PRINT'BAT! SHE HITS YOU OW THE HEAD!” 

5180 FORB=1 1015: FORA=10T015: POKE3 1063, А: X=USR (0) : NEXTA: NEXTB 
5190 FORB=1 1015; FORA=10TO15: POKES 1063, А: X-USR (0) : EXTA: ЖЕКТЕ ° 
5200 6010420 

5210 GOSUBIO:PRINT*YOU CROSS THE BRIDGE" 

5220 PRINT YOU ARE NEAR А LARGE DOOR. YOU" 
5230 PRINT'CAM SEE A WALLET OW THE GROUND." ` 
5340 605086500: PRINT" <EXAMINE’; 

5350 PRINT’DOOR> OR «EXAMINE VALLET) 

5360 INPUTAS 

5370 IFAS-"EXAMIME DOOR" THEN5S410 

5390 [FAS 'EXAMINE WALLET" THEN5550: 605086500: 60105220 
9410 GOSUBIO: PRINT" THERE. IS A COMBINATION LOCK ON’ 
5420 PRINT’ THE DOOR. WHAT DO YOU WANT TO 00"; 
5450 PRINT’ «ENTER COMBINATION> OR «QPEN ° 

5440 PRINT DOOR" ; : [NPUTAS | 

5460 IFA$="OPEN DOOR" THEN5490 

5470 TFAS="ENTER COMBINATION" THEN5600 


5480 605/80000: 60705410 


5490 GOSUBIO:PRINT"YOU TRY TO OPEN THE DOOR м IT’. 
5500 PRINT'IAS ML.......................... = 
5510 FORA=1 70100: B=RND(7) : POKES 1063,8: ҮСТІ NEXT 
5520 PRINT*ELECTRIC SHOCK!" 

5530 PRINT 

5540 GOTO 420 


5550 GOSUB1O; PRINT" YOU EXAMINE THE WALLET. IT HAS? 


5560 PRINT'A SMALL PIECE OF PAPER WHICH ' 
5570 PRENT*SAYS: ' COMBINATION "LOCK* .'" 
5580 PRINT | | 
E PRINT'PRESS RETURN 10 CONTINUE"; : INPUTAS: 605810: 6070522 | 


5000 GOSUB1O:PRINT*ENTER COMBINATON" ; : INPUTA 
5610 TFA=LOCK THENGOTO5650 














5620 PRINT'THE WRONG COMBINATION. THE ый 

5630 PRINT HAS А......... оен ы " 

5640 60705510 

5650 GOSUBIO:PRINT'THE DOOR SWINGS ОРЕМ. ! YOU T 
5660 PRINT'NOW ENTER THE CASTLE. BUT THERE” 

5670 PRINT'ARE TWO MORE DOORS TO OPEN!" 

5680 605085500 

5690 PRINT'«OPEN DOOR 1> OR «OPEN DOOR 2 

5700 INPUTAS 0 

5720 IFAS="OPEN DOOR 1° THENS/SQ 

5730 IFAS="OPEW DOOR 2° THENS8OO | 

5740 605086600: 60105650 | 

5750 GOSUBIO:PRINT YOU OPEN DOOR NUMBER 1. BUT YOU" 
5760 PRINT'FALL INTO A DEEP CROCODILE PIT." 

5770 FORA=1 10100; PORES 1065, A: ad NEXT 

5/80 PRIP'SPLAT. ocn ^ 
5790 0070420 


5800 60SUBIO: PRINT" YOU OPEN DOOR NUMBER 2. WHICH 15°; 


5810 PRINT'THE RIGHT ONE, YOU CAN SEE A ° 

5820 PRINT'MACHINE GUN OM THE GROUND. YOU 

5830 PRINT'CAM ALSO SEE A CASTLE WITH М ' 

5810 PRINT*OPEN DOOR. WHAT DO YOU WANT TO 00°; 
` 6850 PRINT'«GET GUMD OR «ENTER CASTLE)” 

5860 INPUTAS 

5880 IFA$-"ENTER CASTLE THEN5910 

5890 IFAS'GET CUN" THEN5940 | 


5900 605U86600:60105800 

5910 6051810: PRINT YOU TRY TO ENTER THE CASTE BUT 
5920 PRINMT'THE DOOR HAS K.................. E 

5930 00108510 


5940 605810: PRINTYOU PICK UP THE MACHINE GUN WAT"; 
5950 PRINT'DO YOU WANT TO 007 «FIRE GUD ж; | 
5960 PRINT’ «ENTER CASTLE”; 

5970 INPUTAS 

5990 IFAS="ENTER CASTLE" THENBOTO 

6000 IFA$='FIRE GUN" ТНЕНБО?0 

6010 605086600: 60105940 

6020 GOSUBIO:PRINT YOU FIRE THE GUN AT THE CASTLE 
6030 PRIMT'SHELLS FLYING EVERYWHERE. AFTER" 

6040 PRINI'IOQ00 ROUNDS OF AMMUNITION THE" 

6050 PRIMT'CASTLE FALLS DOW IM A LARGE | 

6060 PRINI'HEAP. YOU CAM SEE А LARGE BOK ' 

6070 605/80500. E 

6080 PRINT'«FIRE АТ BOX> , <UNLOCK ВОХ» OR" — 
- 6090 PRINT" «OPEM BOX>"; : PUTAS 

6110 IFASz'OPEN BOX"THENGISQ 

6120 IFAS="FIRE AT ВОХ" THENG200. 

6150 IFAS-'UNLOCK BOX THENG20 ` 

6140 605086600: 60706020 


6150 GOSUBIO:PRINT'YOU TRY TO OPEN THE ВОХ BUT LOTS’; 


6160 PRINT*OF EVIL ROBOTIC ARMS COME OUT" — 

6170 PRINT"FROM IT AND TEAR YOU TO THREADS!"; 

6180 PRINT X 

6190 6010470 

6200 6050810: PRINT YOU FIRE AT THE BOX BUT LOTS OF — 
6210 PRINI'EVIL ROBOTIC ARMS COME OUT FROM' 

6220 PRINT"IT AND TEAR YOU TO THREADS!" 

6230 PRINT 


Р 


6240 6010470 


_ 6250 GOSUB10:PRINMT"YOU UNLOCK THE BOX WITH THE KEY" 
6260 PRINT'YOU FOUND IM THE PIZZA SHOP. YOU"; 


6270 PRINT'OPEN THE LID AND FIND THE JEWELS"; 
6280 PRINT'OF ORANUS INSIDE. THE MAGICAL ° 

6290 PRINT*POWERS OF THE JEWELS TRANSPORT" 

6300 PRINT'YOU BACK TO EARTH AND ITSELF" 

6310 PRINT'BACK. TO THE NATIONAL MUSEUM OF" 

6320 PRINT'ORANUS. " 

6330 FORA-15OTOISTEP- 1 : PQKE31063, А: X-USR (0) : NEXT 


8340 GOSUBTO:PRINT DOME YOU FOUNO THE JEWELS" 


6350 PRINI'OF ORANUS AND GOT TRANSPORTED ° 


6360 PRIMT'BACE TO EARTH" 


6370 PRINT: PRINT: PRINT 
6390 PRINT'DO YOU WANT ANOTHER 60? <YES/NO>"; 


6400 INPUTAS 


6410 [FAS="YES* THENRUM 

6470 IFASS'NO THENCLS:EMD — 

6500 PRINT'MAAT DO YOU WANT TO DOT":RETUR — 

6600 PRINT'SORRY. I DON'T UNDERSTAND" ; SOUNDO, 9 

6610 INPUT"PRESS ««C»» TO CONTINUE, ««» TO QUIT?; BS 
6620 IFLEFTS (8$, 1) =" Q" THENGG30ELSERETURN | 
6630 INPUT'ARE YOU SURE'; C$: IFCS-" Y* THENISOELSERETURN 


ASSEMBLER and the WV.Z.ROM 
by — Dec. 1991 


A aber of users have requested information on — BASIC commands in 
Assembler. Routines already exist in the V.Z. ROM to carry out these functions. The 
entry points of the routines are difficult to discern, and шайы Assembler 
programs is not well explained in V.Z. manuals and Z80 texts. 


This article concentrates on interfacing the SOUND and COLOR commands, but 
the technique developed is widely applicable. 


Assembler programmers should be impressed by the similarity between 
ЛЕТИМ and Basic that exists when using the powerful routines that exist іп ROM. 
Program development and debugging time is considerably reduced. Program size and 
execution time is also minimized. 


Use of COLOR command trom ASSEMBLER ‘ 


The question of setting foreground and background colors from Assembler 
raises avery interesting (I think!) discussion. It is one of the topics I have 
"earmarked" to write-up for V.Z. Users—but have not yet done so. | 


Discussion of BASIC ROM Routines. 


The microsoft Level II ROM inthe V.Z. contains a whole host of useful 
routines. Most are written to be interfaced into the BASIC Interpruter, but if called 
correctly they can be easily used by Assemblly language programmers. Some knowledge 
of the ROM and the interpreter is required to permit successful interfacing. 


I will use the SOUND routine to illustrate my thinking, but will return to 
COLOR later. 


BASIC action — like SOUND and COLOR, are held as TOKENS in the BASIC 
program, followed by various parameters and punctuations expressed in ASCII (usually) 
and requiring а definite syntax for each command. The ROM contains the Basic 
Interpreter and Execution Driver at 1DIE h to 1090 h. (disassemble this for your own 
interest.) Те driver tests for the presence of a TOKEN, (80 h), and then calculates 
an address in a jump table commencing at 1822 h to 1898 h.The interpreter then jumps 
off into the appropriate "action verb routines", that are located throughout the ROM. 
Тһе action verb routine carry out. two functions. The first, is syntax checking for the 
verb, and the second is carrying out the action. If the syntax is not correct, then 
control is passed to 1ЕАА h - the тена Соде Error Handler. 


An understanding of the above балада. із vital to understanding the 
linking of BASIC verbs into Assembler programs. 


From this discussion it would appear that there are at least THREE ways of 7 
linking езара: with the ROM routines. 











1. Create a "buffer" that contains a string of values resembling a Basic 
tokenised program, point the HL register at the start of the string, and then call the 
Interpreter at 101Е h. This is simple to visualise, but error recovery can be 
difficult. | | | 


2. Create a "buffer" containing a string of parametere (and punctuation), 
point the HL register at the start, and call the action verb routine. This is the most 
straightforward and recommended approach to the particuler problem. (with COLOR) | 


3. Create an Assembler routine to achieve the desired result.The algorithm 
can be worked up from scratch or revised from the ROM's verb action table. This 
approach takes the most time,doesn't require ROM support, but can be very efficient, 
in terms of storage and speed. For example, to plot a line, but call the SET, RESET 
verb: as used by Basic, a suitable algorithm must be selected. Method 2. is the best 
one to follow, but as more facilities are required, then method 3. becomes useful. 
For example to clear the screen, (verb CLS) simply call D1C9 (the verb action 
routine). But suppose we want to clear to another color other than the default? Then 
a screen fill routine needs to be written from scratch. That will need a parameter 
indicating the desired screen color. | 


Essentially the Assembly Language programmer "fools" the ROM into thinking 
it is executing a BASIC program, when in fact it is being called from a machine 
language program, Herein lies the true power of the VZ's ROM routine. The ability of 
the Assembly language programmer relies upon his understanding of the V.Z. ROM to 
enable him to write very elegant programs. 


Example using SOUND Verb Action Routine 


The "ВЕЕР" routine is located at 3450 h. and is very simple to call from 
Assembler as no papameters are required.(tone and duration are preset by "BEEP") The 
programmer may be required to save the working registers on the Z80 as they are all 
altered by "ВЕЕР". | | 


To make a beep in an Assembler program the following code is required: 


PUSH AF optional 
PUSH BC 38 $9 
PUSH DE д) Ё 
PUSH HL | 15 11) 
DI ; disable interrupt so that 
duration is accurate 
CALL 3450 
сы (enable interrupt) 
POP HL, | | 
POP DE 
POP BC 
POP AF 


The disabling and later enabling of external interrupts is often omitted, 
but if accurate pitches (tones) and duration (m. sec) are required, then external 
time consuming events should be switched out. | | 


| A slightly more complex example is to call a "SOUND" having a certain pitch 
(HL reg,) and duration (BC reg.) | | | 


(I will omit the saving of registers in all examples from here оп.) 


LD ВС, 75 ;pitch duration | 
LD HL, 259 ;duration 
T DI ;switch out external events 
_ CALL 345C — ;dedicate Z80 to looping through tone 
generating routine 
EI ;permit external events 


Let us lock at a more complex example of calling SOUND verb action routine at 
2HF5 h. (haven't seen that address verb before for SOUND?). This time, the aim is to 
play a TUNE from assembler, i.e. a series of notes. The technique used is method 2 on 
_ the previous page of this article, i.e. fool the ROM into thinking it is executing 
some Basic program, held in a "BUFFER" area of RAM. 


Firstly recall that the Sound command in BASIC specifies a pitch (0-31) and 


 & duration (1-9) separated by a comma (,). There are actually 2 forms of syntax that ` 


will be accepted by the Interpreter. (although not necessarily described in the 
manual!). | 


FORM 1. SOUND dt, 4:S0UND #,# :SOUND 3,3 : 


FORM 2. SOUND 4,4 ;#,# F, ;%,%;.......: 
where "#” is а 1-2 byte ASCII string of 30 h.—39 h. 
(note; there are '"parameters'"—Tnot like the "numbers" 
(0-255) previously put into BC and HL registers) 


In the Basic program statement table (as seen by the interpretation and 
execution driver 1D1E h.) this would look like: | | 


SOUND TOKEN,pitch ASCII number "," duration ASCII 
number ";"........ i-e | 
9E h.,1-2 byte 30 h.—39 h.,2C h., 1 ASCII byte 30-39 h. ЗВ h.,3AÀ h. 


The execution driver detects the 9E h. token, and jumps off to the verb 
action routine at 2BF5 h. In this routine the syntax is checked, the ASCII range 
checked and converted to binary, and if О.К then the sound drivers at 3469 h. are 
called. If the syntax is incorrect then the error handling routines are entered at 
1E4A h. | | | 


To achive all of this from Assembler and use the VZ's ROM routine involves 
the following piece of code. 
TO PLAY À MELODY FROM ASSEMBLER 


LD HL,,MET O m ;point to melody string 


CALL 28Ғ5 ;call sound verb action 
routine 
;continue assembler 
program 


7 








MELO ПЕРМ "16,21;21,2;21,2;23,2;23,2;25,3;26,1;" 
| DEFM "28,2;26,2;25,2;23,2;23,2;21,4 " 
(Do you know the melody?) 


The MELO label defines а data buffer section that is executed by the verb 
action routine as if it were part of the Basic program. On termination of the string, 
control is passed to the next Assembler instruction. 


This ee is 
very simple to program 


very efficient in terms of RAM storage requirements 
and quite fast in terms of execution speed. 


All three criteria are highly desirable features for Assembler programs. | 


CALLING THE COLOR COMMAND FROM ASSEMBLER. 


I trust that by now the method involved in connecting Assembler with Basic's 
ROM routine is becoming clear. Your mind should be running ahead at all of the 
possibilities that are available. | 


Let's first review the COLOR commana in BASIC— like the SOUND command it 
has couple of parameters associated with it, and can be executed ina couple 
forms. (syntax). The first parameter is the foreground color (1-8) and the second, 
the background color (0-1). These colors vary depending upon the MODE (ON1, ОА, 
textNgraphics) that the screen is set in. In mode(0) 


The background color can be green(0) or orange (1). Eight foreground colors 
are available with the "block graphics" characters(80 h.-FF h.)—green, yellow, blue, 
red, buff, cyan, magenta, orange. In mode(1). The background colors are green (0) 
and buff (1). Four foreground colors are available depending upon the background 
color set. Color set (0) is green yellow blue and red. Color set (1) is buff cyan 
magenta and orange. A copy of the mode and background color selected is stored in the 
I/O latch located at 6800 h. and in а сору of the latch located at 783B h. in the 
communication area. Bit 3 is the display mode and Bit 4 is the background color in 
the latch. A copy of the foreground color currently set is located at 7846 h. also in 
the communication area. These are all areas of memory that control hardware - and 
also "remind" the Basic Interpretor of the currently set poroner ora: 


After that long description of the COLOR command, you should have a fair 
idea of how to change the fore- and back-ground colors on the VZ display, from 
assembler. ie. write a routine from scratch. 


I would recommend however using the verb action routine entered from 389D h. 
whenever the token 97 h. is interpreted by the execution driver. This ensures that a 
uniform approach to changing colors is taken. For example the display mode must be 
checked and the copy of the 1/0 latch at 783B h. must be updated whenever 6800 h. is 
changed. Assembly Language programmers sometimes "forget"to do all of the 
“housekeeping chores" required and unpredictable results follow. | 
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The three forms of syntax assoc iated. with the color command are 


FORM 1 COLOR F,B: defines both d & b 

FORM 2 COLOR , B: defines b F is default at 7846 h. 

FORM 3 COLOR F: defines f. B IS default at 6300 h. and 
| | ! 783B h. 


The interpreter sees this as 
97 H.,ASCII 31-38 h.,2C h., ASCII 30-31 Һ.,ЗА h. 


To reset foreground and background colors from Assembler the following code 


. can be used. 
ID HL, COLS _  ipoint to color setting string 
CALL, 389D h. ;use color verb action routine 
| | ;comtinue assembler program 
CIS ГЕМ "3,0" 
FINALE. 


This "brief" paper indicates how simple and concise it is to use the 
comprehensive range of routines present in the VZ Basic ROM. The approach suggested 
minimises the amount of debugging required, because the verb action routines have been 
verified by the Basic Interpreter. The Assembler interface proposed so closely 
follows Basic that debugging becomes trivial. "If it works in Basic it will work in 
Assembler". А considerable amount of mystery is removed from Assembler. Basic 
programers can easily — their ideas into Assembler. 


Supporting this paper are lists of Basic reserved words with corresponding 


tokens and verb action routine entry points that are VITAL to understanding my | 


technique. Disassembled portions of the interpretation/execution driver and the COLOR 
verb acti ion routine are provided for completeness. 


I trust that a firm understanding of BASIC, Assembler and the ROM have 
resulted from working through this paper. 





F.B VERB ACTION routine 


(foreground, background) ` 


Color 

5890 ZE LD A, (HL) 

' 389E FE 2С CP os 
38A0 28 20 JR 7,3822 
38A2 CD 1C 28 CAL 2B1C 
38A5 В/ OR A 
38A6 CA 4A 1E Р Z, 1EdA 
38A9 FE 09 СР 9 

_ 888B 02 ДАЛЕ JP NC, 1E4A 
 58АЕ 3D DEC A 
38AF E6 0/ AND 7 
3881 CB 27 SLA А 
53883 CB 27 SLA А 
5885 CB 27 SLA А 
288/7 CB 27 SLA А 
38D9 52 46 78 LD (7846) ,А ` 
58BC 7E LD A, (HL) 
388D B7 OR A 
58BE C8 RET 7 
58BF FE ЗА CP — 
58C1 C8 RET Z 
38C2 CF RST 8 
58C5 2С DEFB ',' 
38C4 CD 1C 2B CALL 2BiC 
38C7 87 OR A 
38C8 20 ОС JR NZ, 5806 
38CA 3A 3B 78 LD А, 7838 
38CD СВ А/ | RES 4,А 
38CF 52 3B 78 LD (7838),А 
3802 32 00 68 LD (6800) ,A 
3805 C9 RET 
38DG FE O1 CP 1 
5808 C2 4A 1Е . JP NZ, 1EGA 
5808 ЗА 3B 78 LD А, (7838) 
38DE СВ Е7 SET 4,A | 
58Е0 32 3В 78 LD (783B) ,A 
58Е5 32 00 68 LD (6800) ,A 
38E6 СӨ БЕТ | 


: TEXT NEXT. 
:IS IT A COMA? SYNTAX ERROR IF NOT 
:CONVERT ASCII TO HEX AND RETURN IN A REGISTER 


;GET NEXT CHARACTER 

;IS IT A COMA? 

:ҮЕ5 FOREGROUND IS DEFAULT GOTO BACKGROUND 
DECODER 


SCONVERT ASCII TO HEX AND RETURN IN A REG. 


ERROR IF »255. 


;SET ZERO FLAG IF O—RANGE CHECK ON F 
;IF O THEN GOTO FUNCTION CODE ERROR ROUTINE 


;SET FLAGS FOR TEST AGAINST 9 —RANGE CHECK ON F 
;IF >8 THEN GOTO FUNCTION CODE ROUTINE 

;MAKE F IN RANGE OF 0-7 (RATHER THAN 1-9 

;ZERO MSB OF F—TO ENSURE RANGE 

;MULTIPLY F BY 16.-OR SHIFT LEAST SIG. NIBBLE 
;TO MOST SIG. NIBBLE. ENSURE THAT BIT 7 IS O 


;OR THAT BITS 4,5,6,ARE CORRECTLY SET. (TO BE ANDed 
;WITH BLOCK GRAPHICS TO PROVIDE COLOR) 


; SAVE CORRECTED FOREGROUND COLOR IN COMM. AREA 

;GET NEXT CHARACTER 

;SET ZERO FLAG TO TEST FOR NULL. (END IF STATEMENT) 

;VERB ACTION FINISHED AS END OF BASIC STATEMENT 
REACHED | 


;IS IT A COLON 
:ҮЕ5 SO VERB ACTION FINISHED AS COMPOUNDED 


STATEMENT REACHED 
BACKGROUND VALUE 


ERROR IF >255 


:SET ZERO FLAG TO TEST IF B-O RANGE CHECK B 
;IF NOT ZERO GOTO TEST UPPER RANGE 


;COPY OF I/O LATCH IN COMMS.AREA PUT INTO A REG 
БІТ 4 SET TO ZERO TO INDSCATE BACKGROUND COLOR 


. UPDATE COPY OF I/O LATCH 


; UPDATE I/O LAYCH 


;F INISHED 


;SET ZERO FLAG IF B-1 

;B NOT EQUAL TO 1 SO GOTO FUNCTION CODE ERROR 
;COPY OF I/O LATCH IN COMMS. AREA PUT INTO A REG. 
;BIT 4 SET TO 1 TO INDICATE BACKGROUND COLOR 
;UPDATE COPY OF I/O LATCH 

;UPDATE I/O LATCH 

;FINISHED 
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зс» 


h — 


Ez Ez I 


JUME TABLE 1822h 


END 1DAE 
FOR 1CA1 
RESET 0158 
SET 0135 
CLS O1C9 
CMD 7373 
RANDOM  O1D3 
NEXT 22B6 
DATA  1F05 
INPUT 219A 
DIM 2608 
READ 21ЕҒ 
LET 1F21 
GOTO 1EC2 
RUN 1EAS 
IF . 2039 
RESTORE 1D91 
GOSUB IEBi 
RETURN  1EDE 
REM 1F07 
STOP 1DA9 
ELSE 1FO7 
COPY 3912 
COLOR 3890 
VERIFY 3738 
DEFINT 1E03 
DEFSNG 1606 
DEFDBL 1Е09 
CRUN 372E 
MODE 2E63 


VERB ACT ION ROUT INES FOR TOKENS 


sts 128d — 187d 
— ішер 
ФИ РЕЗ с — 62733 — 

SOUND 2BF5 
RESUNE 1FñF | 
OUT 2АҒВ 
ON . 1F6U 
OPEN 7979 

. FIELD 797С 
GET 797Ғ 
PUT 7982 
CLOSE 7985 
LOAD 7988 
MERGE 798В 

. NAME 798Е 
KILL 7991 
LSET 7997 
RSET 7994 | 
SAVE 7980 
SYSTEM 0000 
LPRINT 2067 
DEF 795B . 
РОКЕ 2UB1 
PRINT 2B6F 
COMT 1DE4 
LIST 2B2E 
LLIST 2B29 
DELETE 2BC6 
AUTO 2008 
CLEAR 1E7ñ 
CLOAD 3656 . 
CSAVE 5449 
NEW 1B49 


DOS COMMAND 


VERSION 1.2A 


4680 
4BO8 
4078 


4092 


4E64 
4FFB 
45DB 
48C4 
АВЕЕ 


VERSIDN 


4А7С 
4BO4 
4D74 
408Е 
4ESC 
4FF3 
45DB 


4804 


48EF 
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ENTRY POINTS 


1. 2B 


REN COMMAND 
INIT COMMAND 
DRIVE COMMAND 
IN# COMMAND 
PR# COMMAND 
DCOPY COMMAND 
RUN COMMAND 
BLOAD COMMAND 
BRUN COMMAND 
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| | Welcome — to the Games Column. This issue I shall talk about a feu 
odds апа ends, do a report on a printer game, and a review of a чате 
by Scott La. Brun. | | | Е 
— | STOP PRESS: Delete that about the review! А late visit to 
the Post Office revealed a letter from Peter Watson with reviews of 
Mu So 1711 keep mine for a later issue. Xxx | 

. | O.K. | About three issues ago I reviewed the three games by Tom 
Thiel. Well I have been playing Road Warrior and I noticed that 
instead of the "Radar' having two different coloured dots it had 
three. . X(White-You,  Black-Bad guy, and BLUE-Fuel.), The problem was 
that omy T.V went back to black and white. If you "eat" all the blue 
dots а message appears on the screen, "Fantastic: Get ready player 
one," But instead of getting a neu level Jou get the same old one. 


E 
x 
x 


I can not find the name of the programmer. The game is found on the 
second library tape ( unless it has changed.). This programe "Will 
generate a calendar for any year in the range 1901-1999. All you have 
to do is specify the year." Before you press return to enter the date 
чо! must have the printer "on line" At the start of the printing you 
willl get a "Snoopy" picture Under the picture is the year you want, 
in big figures, and then the months and days. This programe is useful 
if uou decide to find the original day of your birthday or for just an 
ordinary date's calendar. Also there is a programme which can be used > 
to double check "CALENDAR", This programe is also found on tape tuo 
of! the library Games Tapes. It is called "BIRTHDAY" and will ask for 
your birthday and tell you which gay you were born on. | 
| | | 
| Same 57 the more adventurous, if you would like to change 


Now something for those Gf you with a printer --- CALENDAR! 


the "Snoopy" picture, lines 920 to 1360 is the part to change to your 
owr) design. Also en can make а x-mas present with it. Giveraway 


балала are just nas being given ашам апутот е, 
| 


MAIL BAG әже MAIL BAG EE MAIL BAG жеж 
| 2 TWO REVIEWS: BY PETER WATSON 
CRASH-2` s CRASH-4 


Т? Іп Crash-2 you have to run. aver | the dots in the maze, at the same 
time avoiding the car that is coming the opposite way. This car can | 


. change into. your lane, giving. you only a fraction ofa second to 


| nge lanes yourself. When you run over all- the dots you start a 2. 
frame. 1 found this game veru repetitive, and the ringing sound in 
eng 3555-00 gets annoging after a while. | NC | 





Crash—4 is visually very similar, but there are a number of 
differences that make it quite different to play. Firstly, you only 


bo 212 


Have a limited fuel supply, so each frame doesn't last forever and a 
day. Also, in frame three (3) you get a second car trying to crash 
into you, and in frame five (5) you have three (3) cars all trying to 
ston YOU. . To overcome this you have a speed button to get out of any 
tight spots. This makes Crash-4 a much varied game. 
| So, the final verdict is: 
let Crash-4 | end Crashi-2 


CIRCUS VS BUST-OUT 


In CIRCUS you have to move a jumping board to bounce the 
stick-figures up and burst the balloons. You also have to catch the 
figures as they fall or they will go splat. on the ground, This game 
can be frustrating, as the figures do not always bounce in the 
direction that. you want them to, and can fall in a place uhere it is 
impossible to catch them. | | | Б 





BUST-OUT is visually a much plainer game. The object, once again, is 
to burst balloons, but this time it is done with a bouncing ball. You 
must keep this ball from disappearing off the bottom of the screen by 
blocking its path with the bumper/platform. Although it is repetitive, 
id requires а certain amount of skill, whereas Circus relies more on 
luck (at least when I play.) mE | 

So I would rank thems 

| | “та Circus 


ist Bust Out 


— 
Peter ends his letters: 


| : 
б "СУ, 1 also have a question. Have any members had the patience to 
see how long the VZ takes to make a move on Chess Level 67 I once 
tried it on level 5 with the expansion unity and it took 5@ minutes. 


While I've got space here I'd like to sag that I think Mitch’s 
drawings in the past newssletters have been great, and I hope to see 
томе in the future." Ж 





Mitch would like to say thanks for the compliment (thank you!) and 
LI would like to say thanks for the reviews. (thanks they lighten my 
load.) | СЕ 





If you have same info you want printed, send ta: 


TIM PENDLEBURY 
Р.о. Вах 917 
Griffith, N.S.W. 2680. 
. Like the heading for the last issue this heading was done by mu 
brother, Mitch, again using the "SKETCHES" joystick drawing program . 
m the games library. I will use any headings sent to me, ee лі” 






_ And remember, all correspondence will be acknowledged іп the games 
column, but if you want an earlier reply enclose a stamped addressed- 











GAME 


ASTEROIDS 
BUST OUT 
CIRCUS 
CRASH-2 
CRASH-4 
DAWN PATROL 
DEFENCE PENET 
DEFENCE РЕМЕТ | 
. DIG OUT 
GALAXON 
GHOST BUSTER 
HAMBURGER SAM 
HOPPY 


 KAMIKAZE 


KILLER TOMATO 
KNGS & DRAGONS 
KNGS & DRAGONS 
LADDER CHAL 
LUNAR LANDER 
LUNAR LANDER 
МАТЕ OF ARGON 
MISSILE ATTACK 
PANIK 

FENGUIN 
FHARDAH” 5 CURSE 
FHAROAH” S CURSE 
РНАКПОАН? 5 CURSE 
PHARGAH’S CURSE 
FHARGAH’S CURSE 
PLANET PATROL 
SPACE FAM 
STAR BLASTER 
STAR BLASTER 
STAR BLASTER 
STAR BLASTER 
STAR BLASTER 
SUPER SNAKE 
TEN РІМ BOWLS 
VZ INVADERS 


When sending 


newsletter,please 
me. So please post early enough for 


the 10th of the 


THE HIGH SCORES 


SCORE LEVEL HOLDER ALL TIME 


HIGH 
110000 
5940 
| 3180 
1949 2 PETER WATSON 
881 4 FETER WATSON 
- os 294500 /8100 
2084 J/5 ТІМ PENDLEBURY 
2643 ТІМ FENDLEBURY 
| | 83700 
339670 328460 
79900 
25550 
МЕМ А.Т HIGH K+EKkKKkKKKXKKKX1029760 kYXX174850 
570 JS/KB 77 PETER WATSON 19700 
EASY | 2500 
EXFERT | 1200 
29500 24580 
ТАРЕ 5 76600 
ТАРЕ 5 | 8099 
102584 78306 
15720 11540 
3610 
204 1 ТІМ FENDLERURY | 
297 2 ТІМ PENDLEBURY 
521 5 TIM PENDLEBURY 
255 4 ТІМ FENDLEBURY 
171 5 TIM FENDLEBURY 
1588 
| 1441 
575 5. TIM PENDLEBURY 
419? 4 ТЇН PENDLEBURY 
625 š ТІМ FEMDLEBURY 
585 2 ТІМ РЕНИШ ЕВИКҮ 
897 і ТІМ FENDLEBURY 
| 1718 
| 293 
50160 
PLEASE 
an article to Tim for inclusion 


CHALLENGE МАМЕ 


PAUL FRANTZ 
— WATSON | 
PETER WATSON 
PETER WATSON 


FETER WATSON 


FETER WATSON 


in the NEXT 


remember that Tim has a deadline to meet with 
Tim to get ir no later than 


month. Otherwise it may not Бе printed until the 
following month. (Ed. ) 


14. 


RESERVED WORD AND TOKENS LIST 


END 

FOR 
RESET 
SET 

CLS 
(CMD) 
(RANDOM) 
NEXT 


DATA 
INPUT 

. DIM 
READ 
LET 
GOTO 
RUN 

IF 
RESTORE 
GOSUB 
RETURN 
REM 
STOP 
ELSE 
COPY 
COLOR 
VERIFY 
(DEF INT) 
(DEFSNG) 
(DEF DBL) 
СКОМ 
MODE 
SOUND 


(RESUME) 


DUT 
(ON) 
(OPEN) 
(FIELD) 
(GET) 
(PUT) ` 
(CLOSE) 
(LOAD - 


DEC 


128 
129 
150 
151 
132 
133 
134 


135 | 


15% 
137 
138 
139 
140 
141 
142 
145 
144 
145 
146 
147: 
149 
150 
151 
152 
153 
154 
155 
156 


7187 


158 
159 
160 
161 


162 


165 


164 
165 


167 
168 


і 0 
= z i = c 
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— 18271nh 
— e&e177d 
DEC НЕХ 
(NAME) — 169 A9 
(KILL) 170 AA 
(LSET) 180 AB 
(RSET ) 181 AC 
(SAVE) 182 AD 
(SYSTEM) 183 AE 
LPRINT 184 AF 
(DEF) 185 BO 
POKE 186 Bi 
PRINT 187 B2 
CONT 188 ВЗ 
LIST 189 B4 
LLIST 190 BS 
(DELETE) 191 Bó 
(AUTO) 192 B7 
CLEAR 193 B8 
CLOAD 194 B9 
CSAVE 195 BA 
NEW 196 BB 
TAB( 197. BC 
TO 198 BD 
(FN) 199 BE 
USING 200 BF 
(VARPTR) 201 CO 
USR 202 Сі 
(ERL) 203 C2 
(ERR) 204 C3 
(STRINGS) 205 СА 
(INSTR) 206 C5 
POINT 207. Có. 
(TIMES) 208 C7 
(MEM) 209 C8 
INKEYS 210 C9 
THEN 211 СА 
NOT 212 CB 
..8TEP 213 CC 
+ 214 CD 
- 215 СЕ 
& 216 CD 
/ 217. CE 
> 251 FB 


InN ROM 


(FRE) 


INP 
(POS) 
SOR 
RND 
LOG 
EXP 
cos 
SIN 
TAN ` 
ATN 
PEEK 
(CVI) 
(CVS) 
(CVD) 
(EOF) 
(LOC) 
(LOF) 
(MKIS) 
(MKS$) 
(MEDS) 
(CINT) 
(CSNG) 
(CDBL) 
(FIX) 
LEN 
STRS 
VAL 
ASC 
CHRS 
LEFTS 


. RIGHTS | 
230 


MID$ 


DEC 


211 


215 
214 
215 
216 
217 
218 


219 
220 
221 
222 
223 
224 
223 
226 
227 
228 
229 
250 
251 


252 


255 
254 
255 
256 


257 


258 
259 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 





D — 





VERB ACTION ROUTINES FOR FUNCTION TOKENS 
| D7h - Fñh :::: 215d - 250d 


JUMP TABLE 1408h - 164Fh IN КОМ 


--- --- — 
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56404 - 5711d 

07 SGN 0984 E9 EOF 7961 

DS INT OB37 EA LOC 2964 

D9 ABS 0977 EB LOF 7967 

DA FRE 2704 EC МКІФ 7954 

DB INP PAEF ED MKS4 79р 

DC Pos 27F5 ` EE MKDS 7970 

DD SOR | 13E7 EF CINT OA7F 

DE RND 14С9 ҒО CSNG OABL 

DF LOG 0809 Fi CDBL OADB 

EO EXP 1439 F2 FIX OB26 

E1 cos 1541 FS LEN 2603 

E2 SIN 1547 F4 STR$ 2856 

ЕЗ TAN 15A8 FS VAL 2AC5 

EA АТМ 15BD Fó ASC 2A0F 

ES PEEK /2САА F7 СНЕФ 2АіЕ 

Eó суі 7952 ЕВ LEFT$ 2561 

E7 CVS 7958 F? J RIGHTS 2A91 

ES CVD — 795E _ FA MID$ 2AIA 

DOS ROUT INES ---- ENTRY F"OIPNTGS 
START ADDRESS 

JUMP TABLE VERSION 1.24 VERSION 1.2B DESCRIPTION 

4008 SF41 SF1B DISK POWER ON 
400B 5Е52 sF2C DISK POWER OFF 
400E 4241 4241 ERROR HANDLING 
4011 4717 4717 READ TRACK МАР 
4014 4749 4749 CLEAR А SECTOR 
4017 4754 4754 SAVE TRACK МАР 
401A 4B08 4504 INITIALISE DISK 
401D 5347 535F COMMAND INTERUPY 
4020 53B9 53B1 ASCII TO HEX 
4023 SJEA S3E2 READ IDAM 

4026 587B 5873 CREATE ENTRY 
4029 SSBF s8B7 FIND EMPTY SECTOR 
402C 5913 590E FIND ENTRY IN DIR 
 402Е 5968 595C FIND EMPTY SECT IN DIR 
4032 57451 5991 WRITE SECTOR 
4035 5B27 . SB17 READ SECTOR 
4038 SEBE 5Е98 DELAY M/SEC 
403B SECE SEAB STEP IN 

403E SFO1 SEDB STEP OUT 

4041 43B1 43B1 LOAD A FILE 
4044 446E 446E 


SAVE A FILE 


PROGRAM INTERPRETER AND EXECUTIONER А 


A | _BXECUTION ORIVER 105Аһ. TO !DEth.. 


— — — сары сас. 


IDIE CD 58 05 CALL 0358 DOS. EXIT & KEYBOARD AND SCANNER 
|. 1021 B7 OR A ;IF KEY WAS PRESSED ON SET FLAGS 
. 1022 C4 АО 1D CALL NZ, 1DAO ;SEE IF BREAK KEY WAS PRESSED 
1D25 22 E6 78 LD (/8E6),HL ;5АУЕ ADDRESS OF LAST BYTE EXECUTED ІМ CURRENT 


сай. 


| LINE 
1028 ED 75 EB 78 LD- (78ЕВ),5Р ;5АМЕ CURRENT STACK POINTER 
102С 7E LD А, (HL) (СЕТ NEXT CHARACTER FROM INPUT STRING 
1020 FE ZA Ф ';:' ;TEST FOR COMPOUND STATEMENT 
102Е 28 29 JR 7,10БА ЖЕР IF COLON TO EXECUTION DRIVER 
1051 87 R A ;SET STATUS FLAGS 
1032 C2 9719 Р М№,1997 ;NOT NUL BYTE. JUMP TO SYNTAX EXIT 
1035 23 (IC Hu o ;POINT TO NEXT CHAR. IN STATEMENT (LSB) 
1036 7E — ID А, (HL) :GET NEXT CHARACTER 
1037 3 — мн .. ,POINT TO MSB 
1D38 B6 R H ;TEST FOR ZERO | 
21039 CA7E 19 — JR 7,197Е IMPLIES END OF STSTMENT. -EXIT 
` 1D3C 25 INC HL | | | 
1030 5E LD E,(H) ;GET LINE NUMBER OF NEXT STATEMENT AND PUT 
IN DE 
105Е 25 INC H. | 
1D3F 56 LD D,(H) ;DE = BINARY OF NEXT LINE NUMBER 
1040 EB EX ПЕН ;HL = LINE NO. OF NEXT STATEMENT 


1D41 22 A2 78 Ш (78A2),HL  ;UPDATE LAST EXECUTED LINE TO CURRENT LINE NO. 
1044. ЗА 1B 79 LD А, (7918) ;GET TRACE FLAG. O=TROFF 


1047 B7 OR А ;SET STATUS FLAG | 
1048 28 ОҒ JR Z ,1D59 ;JUMP IF TROFF. FALL THROUGH IF TRON 
_ 1D4A D5 PUSH DE ;SAVE DE SINCE DISPLAY USES iT 
1D4B 5E 5С LD А, ;ASCII ">" | 
1040 CD 2A 05 CALL 032A ;PRINT CHARACTER "А" 
1D50 CD AF OF CALL OFAF ;CONVERT LINE МО. TO BINARY AND PRINT IT 
1055 5E 5E LD A, 5E ,ASCII "<" 
1055 CD 2A 05 CALL 052A ` ;PRINT CHAR. “IN A. THIS GIVES LINE NO. IN TRON 
1058 01 РОР DE ;RESTORE DE 
1D59 FB | EX DE, HL ;HL = CODE STRING LINE NUMBER 
105А 07 | RST 10 ;GET NEXT ТОКЕМ, 


EXECUTION PHASE STARTS HERE 
1058 11 1E 1D Ш DE,IDIE ЖЕПЖМ ADDRESS AFTER EXECUTING ONE VERB 
1056 05 . PUSH DE ;SAVE RETURN TO STACK 


105Е C8 RET Z ;EXIT IF EOS (NULL) - GO BACK TO 1D1E 
1060 D6 80 АВ 80 ;COMPUTE RELATIVE TOKEN. (TOKEN RANGE 80-F6) 
1062 DA 21 1F JRC, 1F21 ЖОГ A TOKEN-MUST BE ASSIGNENT STATEMENT 
1065 FE 3C Р 5С ;TEST IF TOKEN BELOW TAB TOKEN 
106/ D2 E7 2A Р МС, 2AE7 ЛІР IF TOKEN —BC (TAB-MIDS) 
106А 07 | RLCA | ., TOKEN No. TIMES 2 
1068 АҒ LD СА ;BC = ROUTINE OFFSET 
1DGC 06 00 = LD BO 

 106Е EB EX (ЕН ;SAVE HL (CURRENT LINE NUMBER) 
ID6F 21 22 18 LD HL,1022 ;POINT AT START VERB ACTION ROUTINES x 
10/2 09 ADD HL,EC ;HL-POINTER AT JUMP TABLE FOR VERB ACTION 

C, (HL) ;PUT ADDRESS INTO BC 


0754€ — ш 
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1074 25 
10/5 46 
10/6 C5 
10// ЕВ 


` RESTART 10 


Load and check next char. 


2204078 23 


1079 7E 
1D7A FE 3A 
1D7C DO 

1D7D FE 20 
1D7F CA 78 1D 
1082 FE 0B 


. 1084 50 05 
. 1086 FE 09 


1D88 D2 78 1D 
1D8B FE 50 
1D8D 5F 

108Е 5С 

1D8F 3D 


1D90 C9 


INC 


HL 
ш — B, (HD 
PUSH BC 
EX ТЕН 


г + 
Oz 


JJ 


Ad AA OA 


,SAVE IT TO STACK 


;RESTORE CODE STRING ADDRESS 


in string. On entry HL points to start of string -1 
09, OA(LF) and 20(SP) ignored 


n.n 


.Z,1078 
-09 . 
МС, 1078 


S то о /x PD PO РАО 


А, HO) i 


On exit A contains character 
HL points to character 
C=1 (if numeric) 


| BUMP THE NEXT CHARACTER 


;COMPARE WITH COLON К | 
;СНАВ. > : SO FINISH. i.e it is :,:,<,..А-2 ` 
"ELSE TEST FOR BLANK - 

“СЕТ NEXT CHAR. IF IT IS A BLANK 


“СЕТ NEXT CHARACTER 


 ,COVPARE WITH VERTICAL TAB 


; JUMP IF A>=0B. NOT A CONTROL CODE © 
:ТЕ5Т FOR HORIZONTAL TAB 


JUMP IF NOT A HORIZONTAL TAB (09) 2 LF (OA) 


;COMPARE WITH ASCII ZERO 

;SET CARRY IF NUMERIC (2-50) 

;CLEAR CARRY IF NOT NUMERIC («50) 

;SET STATUS FLAGS (EXCEPT CARRY ) ACCORDING TO CHAR. 
JUST LOADED 


;RETURN TO CALLER 


ATTENTION ^^ — pus 


Peter Watson has asked that I publish his address, and 
to advise that he would like to correspond with other members. S50 


don't be shy. He 
HIGH SCORES. 


may let you into the secret of how he gets his 
And you never know, between you perhaps I may get | 


some good GEN. to help fill these pages. 


Peter's address is:- 


PETER WATSON, 3 GORDON STR., CULCAIRN. N.S.W. 2660 


` CORRECTION TO LAST E G ш =з 


When comparing TEM and VZ screens, 
screen. This was 


Thanks to Peter for drawing my atterition to this. 


an error 


I seated that VZ had 32 pixels to a 


and should have been 128. 


(Ed. ) 


